home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / barcodes.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  39 lines
  1. 0 FU$=CHR$(255):EM$=CHR$(128)
  2. 1 POKE53280,0:POKE53281,0:PRINT"[147][158]":GOSUB199
  3. 10 INPUT"NUMBER";Q$
  4. 11 N$=RIGHT$(Q$,LEN(Q$)-1)
  5. 12 FORX=1TOLEN(N$):A=VAL(MID$(N$,X,1))
  6. 13 IFX<6THENSR$=SR$+LF$(A):IFX=5THENSR$=SR$+"01010"
  7. 14 IFX>5THENSR$=SR$+RT$(A)
  8. 15 NEXT
  9. 16 FORX=1TOLEN(SR$)STEP2
  10. 18 A$=MID$(SR$,X,2)
  11. 19 IFA$="00"THENS$=S$+" "
  12. 22 IFA$="10"THENS$=S$+"[161]"
  13. 24 IFA$="11"THENS$=S$+" [146]"
  14. 26 IFA$="01"THENS$=S$+"[161][146]"
  15. 28 NEXT
  16. 29 FORX=1TO10:PRINTS$:NEXT:N$=Q$
  17. 30 FORX=1TOLEN(N$)STEP2:Q=Q+VAL(MID$(N$,X,1)):NEXT:Q=Q*3
  18. 32 FORX=2TOLEN(N$)STEP2:E=E+VAL(MID$(N$,X,1)):NEXT:W=Q+E
  19. 34 R=((INT(W/10)+1)*10)-W:IFR=10THENR=0
  20. 36 PRINT"CHECK DIGIT: "R
  21. 38 AD$="101":D$="101":CD$=RT$(R):PC$=LF$(VAL(LEFT$(Q$,1)))
  22. 40 AD$=AD$+PC$+SR$+CD$+D$
  23. 42 FORX=1TOLEN(AD$)
  24. 44 IFMID$(AD$,X,1)="1"THENG$=G$+FU$
  25. 46 IFMID$(AD$,X,1)="0"THENG$=G$+EM$
  26. 48 NEXT:OPEN3,4:PRINT#3,CHR$(28)
  27. 50 FORX=1TO12:PRINT#3,CHR$(8);G$;CHR$(27);CHR$(10);CHR$(10)
  28. 52 NEXT:PRINT#3,CHR$(15):PRINT#3,N$:CLOSE3
  29. 99 END
  30. 199 FORX=0TO9:READLF$(X):NEXT:FORX=0TO9:READRT$(X):NEXT:RETURN
  31. 200 DATA"0001101","0011001","0010011"
  32. 201 DATA"0111101","0100011","0110001"
  33. 202 DATA"0101111","0111011","0110111"
  34. 203 DATA"0001011"
  35. 204 DATA"1110010","1100110","1101100"
  36. 205 DATA"1000010","1011100","1001110"
  37. 206 DATA"1010000","1000100","1001000"
  38. 207 DATA"1110100"
  39.